Optional Structs.f

Only Forth Definitions

0 value it
0 value that

0 constant Object

: inherit  ;
: struct  Object inherit ;
: field   create over , + immediate
  does> @ state @ if postpone literal postpone + else + then ;
: end-struct   constant ;

